# READ IN CD_REAL

MEAN=c(mean(CD_REAL_5),mean(CD_REAL_6),mean(CD_REAL_7),mean(CD_REAL_8),mean(CD_REAL_9),
mean(CD_REAL_10),mean(CD_REAL_15),mean(CD_REAL_20),mean(CD_REAL_25),
mean(CD_REAL_30),mean(CD_REAL_35),mean(CD_REAL_40),mean(CD_REAL_45),mean(CD_REAL_50),
mean(CD_REAL_55),mean(CD_REAL_60),mean(CD_REAL_65),mean(CD_REAL_70),mean(CD_REAL_75),
mean(CD_REAL_80),mean(CD_REAL_85),mean(CD_REAL_90),mean(CD_REAL_95),mean(CD_REAL_100),
mean(CD_REAL_110),mean(CD_REAL_120),mean(CD_REAL_130),mean(CD_REAL_140),mean(CD_REAL_150),
mean(CD_REAL_160),mean(CD_REAL_170),mean(CD_REAL_180),mean(CD_REAL_190),mean(CD_REAL_200),
mean(CD_REAL_210),mean(CD_REAL_220),mean(CD_REAL_230),mean(CD_REAL_240),mean(CD_REAL_250),
mean(CD_REAL_260),mean(CD_REAL_270),mean(CD_REAL_280),mean(CD_REAL_290),mean(CD_REAL_300),
mean(CD_REAL_310),mean(CD_REAL_320),mean(CD_REAL_330),mean(CD_REAL_340),mean(CD_REAL_350),
mean(CD_REAL_360),mean(CD_REAL_370),mean(CD_REAL_380),mean(CD_REAL_390),mean(CD_REAL_400),
mean(CD_REAL_410),mean(CD_REAL_420),mean(CD_REAL_430),mean(CD_REAL_440),mean(CD_REAL_450),
mean(CD_REAL_460),mean(CD_REAL_470),mean(CD_REAL_480),mean(CD_REAL_490),mean(CD_REAL_500))

UPPER=c(sort(CD_REAL_5)[9950],sort(CD_REAL_6)[9950],sort(CD_REAL_7)[9950],sort(CD_REAL_8)[9950],
sort(CD_REAL_9)[9950],sort(CD_REAL_10)[9950],sort(CD_REAL_15)[9950],sort(CD_REAL_20)[9950],
sort(CD_REAL_25)[9950],sort(CD_REAL_30)[9950],sort(CD_REAL_35)[9950],sort(CD_REAL_40)[9950],
sort(CD_REAL_45)[9950],sort(CD_REAL_50)[9950],sort(CD_REAL_55)[9950],sort(CD_REAL_60)[9950],
sort(CD_REAL_65)[9950],sort(CD_REAL_70)[9950],sort(CD_REAL_75)[9950],sort(CD_REAL_80)[9950],
sort(CD_REAL_85)[9950],sort(CD_REAL_90)[9950],sort(CD_REAL_95)[9950],sort(CD_REAL_100)[9950],
sort(CD_REAL_110)[9950],sort(CD_REAL_120)[9950],sort(CD_REAL_130)[9950],sort(CD_REAL_140)[9950],
sort(CD_REAL_150)[9950],sort(CD_REAL_160)[9950],sort(CD_REAL_170)[9950],sort(CD_REAL_180)[9950],
sort(CD_REAL_190)[9950],sort(CD_REAL_200)[9950],sort(CD_REAL_210)[9950],sort(CD_REAL_220)[9950],
sort(CD_REAL_230)[9950],sort(CD_REAL_240)[9950],sort(CD_REAL_250)[9950],sort(CD_REAL_260)[9950],
sort(CD_REAL_270)[9950],sort(CD_REAL_280)[9950],sort(CD_REAL_290)[9950],sort(CD_REAL_300)[9950],
sort(CD_REAL_310)[9950],sort(CD_REAL_320)[9950],sort(CD_REAL_330)[9950],sort(CD_REAL_340)[9950],
sort(CD_REAL_350)[9950],sort(CD_REAL_360)[9950],sort(CD_REAL_370)[9950],sort(CD_REAL_380)[9950],
sort(CD_REAL_390)[9950],sort(CD_REAL_400)[9950],sort(CD_REAL_410)[9950],sort(CD_REAL_420)[9950],
sort(CD_REAL_430)[9950],sort(CD_REAL_440)[9950],sort(CD_REAL_450)[9950],sort(CD_REAL_460)[9950],
sort(CD_REAL_470)[9950],sort(CD_REAL_480)[9950],sort(CD_REAL_490)[9950],sort(CD_REAL_500)[9950])

LOWER=c(sort(CD_REAL_5)[51],sort(CD_REAL_6)[51],sort(CD_REAL_7)[51],sort(CD_REAL_8)[51],
sort(CD_REAL_9)[51],sort(CD_REAL_10)[51],sort(CD_REAL_15)[51],sort(CD_REAL_20)[51],
sort(CD_REAL_25)[51],sort(CD_REAL_30)[51],sort(CD_REAL_35)[51],sort(CD_REAL_40)[51],
sort(CD_REAL_45)[51],sort(CD_REAL_50)[51],sort(CD_REAL_55)[51],sort(CD_REAL_60)[51],
sort(CD_REAL_65)[51],sort(CD_REAL_70)[51],sort(CD_REAL_75)[51],sort(CD_REAL_80)[51],
sort(CD_REAL_85)[51],sort(CD_REAL_90)[51],sort(CD_REAL_95)[51],sort(CD_REAL_100)[51],
sort(CD_REAL_110)[51],sort(CD_REAL_120)[51],sort(CD_REAL_130)[51],sort(CD_REAL_140)[51],
sort(CD_REAL_150)[51],sort(CD_REAL_160)[51],sort(CD_REAL_170)[51],sort(CD_REAL_180)[51],
sort(CD_REAL_190)[51],sort(CD_REAL_200)[51],sort(CD_REAL_210)[51],sort(CD_REAL_220)[51],
sort(CD_REAL_230)[51],sort(CD_REAL_240)[51],sort(CD_REAL_250)[51],sort(CD_REAL_260)[51],
sort(CD_REAL_270)[51],sort(CD_REAL_280)[51],sort(CD_REAL_290)[51],sort(CD_REAL_300)[51],
sort(CD_REAL_310)[51],sort(CD_REAL_320)[51],sort(CD_REAL_330)[51],sort(CD_REAL_340)[51],
sort(CD_REAL_350)[51],sort(CD_REAL_360)[51],sort(CD_REAL_370)[51],sort(CD_REAL_380)[51],
sort(CD_REAL_390)[51],sort(CD_REAL_400)[51],sort(CD_REAL_410)[51],sort(CD_REAL_420)[51],
sort(CD_REAL_430)[51],sort(CD_REAL_440)[51],sort(CD_REAL_450)[51],sort(CD_REAL_460)[51],
sort(CD_REAL_470)[51],sort(CD_REAL_480)[51],sort(CD_REAL_490)[51],sort(CD_REAL_500)[51])

par(mfrow=c(1,2))

plot(c(5:9,seq(10,100,5),seq(110,500,10)),MEAN,type='l',lwd=3,col='blue',axes=FALSE,ylim=c(0,.4),
main=c(paste('5A. Profile-Based Cliffs Delta = .29'),
paste('for Two Distributions (R=500):'),
paste('Based on Equal Number of Items per Group')),
xlab='Number of Items for Both Groups',ylab='Profile-Based Cliffs Delta')
axis(side=1,at=c(5,seq(50,500,50)));axis(side=2,at=seq(0,.4,.05),las=1)
lines(c(5:9,seq(10,100,5),seq(110,500,10)),rep(.291068,64),col='red',lwd=2,lty=2)
legend('bottomright',bty='n',c('Reference Cliffs Delta','Estimated Cliffs Delta'),
col=c('red','blue'),lty=c(2,1))

###########################################################################################################

MEAN=c(mean(CD_REAL_500_5),mean(CD_REAL_500_6),mean(CD_REAL_500_7),mean(CD_REAL_500_8),mean(CD_REAL_500_9),
mean(CD_REAL_500_10),mean(CD_REAL_500_15),mean(CD_REAL_500_20),mean(CD_REAL_500_25),
mean(CD_REAL_500_30),mean(CD_REAL_500_35),mean(CD_REAL_500_40),mean(CD_REAL_500_45),mean(CD_REAL_500_50),
mean(CD_REAL_500_55),mean(CD_REAL_500_60),mean(CD_REAL_500_65),mean(CD_REAL_500_70),mean(CD_REAL_500_75),
mean(CD_REAL_500_80),mean(CD_REAL_500_85),mean(CD_REAL_500_90),mean(CD_REAL_500_95),mean(CD_REAL_500_100),
mean(CD_REAL_500_110),mean(CD_REAL_500_120),mean(CD_REAL_500_130),mean(CD_REAL_500_140),mean(CD_REAL_500_150),
mean(CD_REAL_500_160),mean(CD_REAL_500_170),mean(CD_REAL_500_180),mean(CD_REAL_500_190),mean(CD_REAL_500_200),
mean(CD_REAL_500_210),mean(CD_REAL_500_220),mean(CD_REAL_500_230),mean(CD_REAL_500_240),mean(CD_REAL_500_250),
mean(CD_REAL_500_260),mean(CD_REAL_500_270),mean(CD_REAL_500_280),mean(CD_REAL_500_290),mean(CD_REAL_500_300),
mean(CD_REAL_500_310),mean(CD_REAL_500_320),mean(CD_REAL_500_330),mean(CD_REAL_500_340),mean(CD_REAL_500_350),
mean(CD_REAL_500_360),mean(CD_REAL_500_370),mean(CD_REAL_500_380),mean(CD_REAL_500_390),mean(CD_REAL_500_400),
mean(CD_REAL_500_410),mean(CD_REAL_500_420),mean(CD_REAL_500_430),mean(CD_REAL_500_440),mean(CD_REAL_500_450),
mean(CD_REAL_500_460),mean(CD_REAL_500_470),mean(CD_REAL_500_480),mean(CD_REAL_500_490),mean(CD_REAL_500_500))

UPPER=c(sort(CD_REAL_500_5)[9950],sort(CD_REAL_500_6)[9950],sort(CD_REAL_500_7)[9950],sort(CD_REAL_500_8)[9950],
sort(CD_REAL_500_9)[9950],sort(CD_REAL_500_10)[9950],sort(CD_REAL_500_15)[9950],sort(CD_REAL_500_20)[9950],
sort(CD_REAL_500_25)[9950],sort(CD_REAL_500_30)[9950],sort(CD_REAL_500_35)[9950],sort(CD_REAL_500_40)[9950],
sort(CD_REAL_500_45)[9950],sort(CD_REAL_500_50)[9950],sort(CD_REAL_500_55)[9950],sort(CD_REAL_500_60)[9950],
sort(CD_REAL_500_65)[9950],sort(CD_REAL_500_70)[9950],sort(CD_REAL_500_75)[9950],sort(CD_REAL_500_80)[9950],
sort(CD_REAL_500_85)[9950],sort(CD_REAL_500_90)[9950],sort(CD_REAL_500_95)[9950],sort(CD_REAL_500_100)[9950],
sort(CD_REAL_500_110)[9950],sort(CD_REAL_500_120)[9950],sort(CD_REAL_500_130)[9950],sort(CD_REAL_500_140)[9950],
sort(CD_REAL_500_150)[9950],sort(CD_REAL_500_160)[9950],sort(CD_REAL_500_170)[9950],sort(CD_REAL_500_180)[9950],
sort(CD_REAL_500_190)[9950],sort(CD_REAL_500_200)[9950],sort(CD_REAL_500_210)[9950],sort(CD_REAL_500_220)[9950],
sort(CD_REAL_500_230)[9950],sort(CD_REAL_500_240)[9950],sort(CD_REAL_500_250)[9950],sort(CD_REAL_500_260)[9950],
sort(CD_REAL_500_270)[9950],sort(CD_REAL_500_280)[9950],sort(CD_REAL_500_290)[9950],sort(CD_REAL_500_300)[9950],
sort(CD_REAL_500_310)[9950],sort(CD_REAL_500_320)[9950],sort(CD_REAL_500_330)[9950],sort(CD_REAL_500_340)[9950],
sort(CD_REAL_500_350)[9950],sort(CD_REAL_500_360)[9950],sort(CD_REAL_500_370)[9950],sort(CD_REAL_500_380)[9950],
sort(CD_REAL_500_390)[9950],sort(CD_REAL_500_400)[9950],sort(CD_REAL_500_410)[9950],sort(CD_REAL_500_420)[9950],
sort(CD_REAL_500_430)[9950],sort(CD_REAL_500_440)[9950],sort(CD_REAL_500_450)[9950],sort(CD_REAL_500_460)[9950],
sort(CD_REAL_500_470)[9950],sort(CD_REAL_500_480)[9950],sort(CD_REAL_500_490)[9950],sort(CD_REAL_500_500)[9950])

LOWER=c(sort(CD_REAL_500_5)[51],sort(CD_REAL_500_6)[51],sort(CD_REAL_500_7)[51],sort(CD_REAL_500_8)[51],
sort(CD_REAL_500_9)[51],sort(CD_REAL_500_10)[51],sort(CD_REAL_500_15)[51],sort(CD_REAL_500_20)[51],
sort(CD_REAL_500_25)[51],sort(CD_REAL_500_30)[51],sort(CD_REAL_500_35)[51],sort(CD_REAL_500_40)[51],
sort(CD_REAL_500_45)[51],sort(CD_REAL_500_50)[51],sort(CD_REAL_500_55)[51],sort(CD_REAL_500_60)[51],
sort(CD_REAL_500_65)[51],sort(CD_REAL_500_70)[51],sort(CD_REAL_500_75)[51],sort(CD_REAL_500_80)[51],
sort(CD_REAL_500_85)[51],sort(CD_REAL_500_90)[51],sort(CD_REAL_500_95)[51],sort(CD_REAL_500_100)[51],
sort(CD_REAL_500_110)[51],sort(CD_REAL_500_120)[51],sort(CD_REAL_500_130)[51],sort(CD_REAL_500_140)[51],
sort(CD_REAL_500_150)[51],sort(CD_REAL_500_160)[51],sort(CD_REAL_500_170)[51],sort(CD_REAL_500_180)[51],
sort(CD_REAL_500_190)[51],sort(CD_REAL_500_200)[51],sort(CD_REAL_500_210)[51],sort(CD_REAL_500_220)[51],
sort(CD_REAL_500_230)[51],sort(CD_REAL_500_240)[51],sort(CD_REAL_500_250)[51],sort(CD_REAL_500_260)[51],
sort(CD_REAL_500_270)[51],sort(CD_REAL_500_280)[51],sort(CD_REAL_500_290)[51],sort(CD_REAL_500_300)[51],
sort(CD_REAL_500_310)[51],sort(CD_REAL_500_320)[51],sort(CD_REAL_500_330)[51],sort(CD_REAL_500_340)[51],
sort(CD_REAL_500_350)[51],sort(CD_REAL_500_360)[51],sort(CD_REAL_500_370)[51],sort(CD_REAL_500_380)[51],
sort(CD_REAL_500_390)[51],sort(CD_REAL_500_400)[51],sort(CD_REAL_500_410)[51],sort(CD_REAL_500_420)[51],
sort(CD_REAL_500_430)[51],sort(CD_REAL_500_440)[51],sort(CD_REAL_500_450)[51],sort(CD_REAL_500_460)[51],
sort(CD_REAL_500_470)[51],sort(CD_REAL_500_480)[51],sort(CD_REAL_500_490)[51],sort(CD_REAL_500_500)[51])

plot(c(5:9,seq(10,100,5),seq(110,500,10)),MEAN,type='l',lwd=3,col='blue',axes=FALSE,ylim=c(0,.4),
main=c(paste('5B. Profile-Based Cliffs Delta = .29'),
paste('for Two Distributions (R=500):'),
paste('Based on a Variable Number of Items for Group 1'),
('and 500 Items for Group 2')),
xlab='Number of Items for Group 1',ylab='Profile-Based Cliffs Delta')
axis(side=1,at=c(5,seq(50,500,50)));axis(side=2,at=seq(0,.4,.05),las=1)
lines(c(5:9,seq(10,100,5),seq(110,500,10)),rep(.291068,64),col='red',lwd=2,lty=2)
legend('bottomright',bty='n',c('Reference Cliffs Delta','Estimated Cliffs Delta'),
col=c('red','blue'),lty=c(2,1))

####################################################################

MEAN=c(mean(CD_REAL_20_5),mean(CD_REAL_20_6),mean(CD_REAL_20_7),mean(CD_REAL_20_8),mean(CD_REAL_20_9),
mean(CD_REAL_20_10),mean(CD_REAL_20_15),mean(CD_REAL_20_20),mean(CD_REAL_20_25),
mean(CD_REAL_20_30),mean(CD_REAL_20_35),mean(CD_REAL_20_40),mean(CD_REAL_20_45),mean(CD_REAL_20_50),
mean(CD_REAL_20_55),mean(CD_REAL_20_60),mean(CD_REAL_20_65),mean(CD_REAL_20_70),mean(CD_REAL_20_75),
mean(CD_REAL_20_80),mean(CD_REAL_20_85),mean(CD_REAL_20_90),mean(CD_REAL_20_95),mean(CD_REAL_20_100),
mean(CD_REAL_20_110),mean(CD_REAL_20_120),mean(CD_REAL_20_130),mean(CD_REAL_20_140),mean(CD_REAL_20_150),
mean(CD_REAL_20_160),mean(CD_REAL_20_170),mean(CD_REAL_20_180),mean(CD_REAL_20_190),mean(CD_REAL_20_200),
mean(CD_REAL_20_210),mean(CD_REAL_20_220),mean(CD_REAL_20_230),mean(CD_REAL_20_240),mean(CD_REAL_20_250),
mean(CD_REAL_20_260),mean(CD_REAL_20_270),mean(CD_REAL_20_280),mean(CD_REAL_20_290),mean(CD_REAL_20_300),
mean(CD_REAL_20_310),mean(CD_REAL_20_320),mean(CD_REAL_20_330),mean(CD_REAL_20_340),mean(CD_REAL_20_350),
mean(CD_REAL_20_360),mean(CD_REAL_20_370),mean(CD_REAL_20_380),mean(CD_REAL_20_390),mean(CD_REAL_20_400),
mean(CD_REAL_20_410),mean(CD_REAL_20_420),mean(CD_REAL_20_430),mean(CD_REAL_20_440),mean(CD_REAL_20_450),
mean(CD_REAL_20_460),mean(CD_REAL_20_470),mean(CD_REAL_20_480),mean(CD_REAL_20_490),mean(CD_REAL_20_500))

UPPER=c(sort(CD_REAL_20_5)[9950],sort(CD_REAL_20_6)[9950],sort(CD_REAL_20_7)[9950],sort(CD_REAL_20_8)[9950],
sort(CD_REAL_20_9)[9950],sort(CD_REAL_20_10)[9950],sort(CD_REAL_20_15)[9950],sort(CD_REAL_20_20)[9950],
sort(CD_REAL_20_25)[9950],sort(CD_REAL_20_30)[9950],sort(CD_REAL_20_35)[9950],sort(CD_REAL_20_40)[9950],
sort(CD_REAL_20_45)[9950],sort(CD_REAL_20_50)[9950],sort(CD_REAL_20_55)[9950],sort(CD_REAL_20_60)[9950],
sort(CD_REAL_20_65)[9950],sort(CD_REAL_20_70)[9950],sort(CD_REAL_20_75)[9950],sort(CD_REAL_20_80)[9950],
sort(CD_REAL_20_85)[9950],sort(CD_REAL_20_90)[9950],sort(CD_REAL_20_95)[9950],sort(CD_REAL_20_100)[9950],
sort(CD_REAL_20_110)[9950],sort(CD_REAL_20_120)[9950],sort(CD_REAL_20_130)[9950],sort(CD_REAL_20_140)[9950],
sort(CD_REAL_20_150)[9950],sort(CD_REAL_20_160)[9950],sort(CD_REAL_20_170)[9950],sort(CD_REAL_20_180)[9950],
sort(CD_REAL_20_190)[9950],sort(CD_REAL_20_200)[9950],sort(CD_REAL_20_210)[9950],sort(CD_REAL_20_220)[9950],
sort(CD_REAL_20_230)[9950],sort(CD_REAL_20_240)[9950],sort(CD_REAL_20_250)[9950],sort(CD_REAL_20_260)[9950],
sort(CD_REAL_20_270)[9950],sort(CD_REAL_20_280)[9950],sort(CD_REAL_20_290)[9950],sort(CD_REAL_20_300)[9950],
sort(CD_REAL_20_310)[9950],sort(CD_REAL_20_320)[9950],sort(CD_REAL_20_330)[9950],sort(CD_REAL_20_340)[9950],
sort(CD_REAL_20_350)[9950],sort(CD_REAL_20_360)[9950],sort(CD_REAL_20_370)[9950],sort(CD_REAL_20_380)[9950],
sort(CD_REAL_20_390)[9950],sort(CD_REAL_20_400)[9950],sort(CD_REAL_20_410)[9950],sort(CD_REAL_20_420)[9950],
sort(CD_REAL_20_430)[9950],sort(CD_REAL_20_440)[9950],sort(CD_REAL_20_450)[9950],sort(CD_REAL_20_460)[9950],
sort(CD_REAL_20_470)[9950],sort(CD_REAL_20_480)[9950],sort(CD_REAL_20_490)[9950],sort(CD_REAL_20_500)[9950])

LOWER=c(sort(CD_REAL_20_5)[51],sort(CD_REAL_20_6)[51],sort(CD_REAL_20_7)[51],sort(CD_REAL_20_8)[51],
sort(CD_REAL_20_9)[51],sort(CD_REAL_20_10)[51],sort(CD_REAL_20_15)[51],sort(CD_REAL_20_20)[51],
sort(CD_REAL_20_25)[51],sort(CD_REAL_20_30)[51],sort(CD_REAL_20_35)[51],sort(CD_REAL_20_40)[51],
sort(CD_REAL_20_45)[51],sort(CD_REAL_20_50)[51],sort(CD_REAL_20_55)[51],sort(CD_REAL_20_60)[51],
sort(CD_REAL_20_65)[51],sort(CD_REAL_20_70)[51],sort(CD_REAL_20_75)[51],sort(CD_REAL_20_80)[51],
sort(CD_REAL_20_85)[51],sort(CD_REAL_20_90)[51],sort(CD_REAL_20_95)[51],sort(CD_REAL_20_100)[51],
sort(CD_REAL_20_110)[51],sort(CD_REAL_20_120)[51],sort(CD_REAL_20_130)[51],sort(CD_REAL_20_140)[51],
sort(CD_REAL_20_150)[51],sort(CD_REAL_20_160)[51],sort(CD_REAL_20_170)[51],sort(CD_REAL_20_180)[51],
sort(CD_REAL_20_190)[51],sort(CD_REAL_20_200)[51],sort(CD_REAL_20_210)[51],sort(CD_REAL_20_220)[51],
sort(CD_REAL_20_230)[51],sort(CD_REAL_20_240)[51],sort(CD_REAL_20_250)[51],sort(CD_REAL_20_260)[51],
sort(CD_REAL_20_270)[51],sort(CD_REAL_20_280)[51],sort(CD_REAL_20_290)[51],sort(CD_REAL_20_300)[51],
sort(CD_REAL_20_310)[51],sort(CD_REAL_20_320)[51],sort(CD_REAL_20_330)[51],sort(CD_REAL_20_340)[51],
sort(CD_REAL_20_350)[51],sort(CD_REAL_20_360)[51],sort(CD_REAL_20_370)[51],sort(CD_REAL_20_380)[51],
sort(CD_REAL_20_390)[51],sort(CD_REAL_20_400)[51],sort(CD_REAL_20_410)[51],sort(CD_REAL_20_420)[51],
sort(CD_REAL_20_430)[51],sort(CD_REAL_20_440)[51],sort(CD_REAL_20_450)[51],sort(CD_REAL_20_460)[51],
sort(CD_REAL_20_470)[51],sort(CD_REAL_20_480)[51],sort(CD_REAL_20_490)[51],sort(CD_REAL_20_500)[51])

par(mfrow=c(1,2))

plot(c(5:9,seq(10,100,5),seq(110,500,10)),MEAN,type='l',lwd=3,col='blue',axes=FALSE,ylim=c(0,.4),
main=c(paste('5C. Profile-Based Cliffs Delta = .29'),
paste('for Two Distributions (R=500):'),
paste('Based on a Variable Number of Items for Group 1'),
('and 20 Items for Group 2')),
xlab='Number of Items for Group 1',ylab='Profile-Based Cliffs Delta')
axis(side=1,at=c(5,seq(50,500,50)));axis(side=2,at=seq(0,.4,.05),las=1)
lines(c(5:9,seq(10,100,5),seq(110,500,10)),rep(.291068,64),col='red',lwd=2,lty=2)
legend('bottomright',bty='n',c('Reference Cliffs Delta','Estimated Cliffs Delta'),
col=c('red','blue'),lty=c(2,1))

####################################################################

MEAN=c(mean(CD_REAL_5_5),mean(CD_REAL_5_6),mean(CD_REAL_5_7),mean(CD_REAL_5_8),mean(CD_REAL_5_9),
mean(CD_REAL_5_10),mean(CD_REAL_5_15),mean(CD_REAL_5_20),mean(CD_REAL_5_25),
mean(CD_REAL_5_30),mean(CD_REAL_5_35),mean(CD_REAL_5_40),mean(CD_REAL_5_45),mean(CD_REAL_5_50),
mean(CD_REAL_5_55),mean(CD_REAL_5_60),mean(CD_REAL_5_65),mean(CD_REAL_5_70),mean(CD_REAL_5_75),
mean(CD_REAL_5_80),mean(CD_REAL_5_85),mean(CD_REAL_5_90),mean(CD_REAL_5_95),mean(CD_REAL_5_100),
mean(CD_REAL_5_110),mean(CD_REAL_5_120),mean(CD_REAL_5_130),mean(CD_REAL_5_140),mean(CD_REAL_5_150),
mean(CD_REAL_5_160),mean(CD_REAL_5_170),mean(CD_REAL_5_180),mean(CD_REAL_5_190),mean(CD_REAL_5_200),
mean(CD_REAL_5_210),mean(CD_REAL_5_220),mean(CD_REAL_5_230),mean(CD_REAL_5_240),mean(CD_REAL_5_250),
mean(CD_REAL_5_260),mean(CD_REAL_5_270),mean(CD_REAL_5_280),mean(CD_REAL_5_290),mean(CD_REAL_5_300),
mean(CD_REAL_5_310),mean(CD_REAL_5_320),mean(CD_REAL_5_330),mean(CD_REAL_5_340),mean(CD_REAL_5_350),
mean(CD_REAL_5_360),mean(CD_REAL_5_370),mean(CD_REAL_5_380),mean(CD_REAL_5_390),mean(CD_REAL_5_400),
mean(CD_REAL_5_410),mean(CD_REAL_5_420),mean(CD_REAL_5_430),mean(CD_REAL_5_440),mean(CD_REAL_5_450),
mean(CD_REAL_5_460),mean(CD_REAL_5_470),mean(CD_REAL_5_480),mean(CD_REAL_5_490),mean(CD_REAL_5_500))

UPPER=c(sort(CD_REAL_5_5)[9950],sort(CD_REAL_5_6)[9950],sort(CD_REAL_5_7)[9950],sort(CD_REAL_5_8)[9950],
sort(CD_REAL_5_9)[9950],sort(CD_REAL_5_10)[9950],sort(CD_REAL_5_15)[9950],sort(CD_REAL_5_20)[9950],
sort(CD_REAL_5_25)[9950],sort(CD_REAL_5_30)[9950],sort(CD_REAL_5_35)[9950],sort(CD_REAL_5_40)[9950],
sort(CD_REAL_5_45)[9950],sort(CD_REAL_5_50)[9950],sort(CD_REAL_5_55)[9950],sort(CD_REAL_5_60)[9950],
sort(CD_REAL_5_65)[9950],sort(CD_REAL_5_70)[9950],sort(CD_REAL_5_75)[9950],sort(CD_REAL_5_80)[9950],
sort(CD_REAL_5_85)[9950],sort(CD_REAL_5_90)[9950],sort(CD_REAL_5_95)[9950],sort(CD_REAL_5_100)[9950],
sort(CD_REAL_5_110)[9950],sort(CD_REAL_5_120)[9950],sort(CD_REAL_5_130)[9950],sort(CD_REAL_5_140)[9950],
sort(CD_REAL_5_150)[9950],sort(CD_REAL_5_160)[9950],sort(CD_REAL_5_170)[9950],sort(CD_REAL_5_180)[9950],
sort(CD_REAL_5_190)[9950],sort(CD_REAL_5_200)[9950],sort(CD_REAL_5_210)[9950],sort(CD_REAL_5_220)[9950],
sort(CD_REAL_5_230)[9950],sort(CD_REAL_5_240)[9950],sort(CD_REAL_5_250)[9950],sort(CD_REAL_5_260)[9950],
sort(CD_REAL_5_270)[9950],sort(CD_REAL_5_280)[9950],sort(CD_REAL_5_290)[9950],sort(CD_REAL_5_300)[9950],
sort(CD_REAL_5_310)[9950],sort(CD_REAL_5_320)[9950],sort(CD_REAL_5_330)[9950],sort(CD_REAL_5_340)[9950],
sort(CD_REAL_5_350)[9950],sort(CD_REAL_5_360)[9950],sort(CD_REAL_5_370)[9950],sort(CD_REAL_5_380)[9950],
sort(CD_REAL_5_390)[9950],sort(CD_REAL_5_400)[9950],sort(CD_REAL_5_410)[9950],sort(CD_REAL_5_420)[9950],
sort(CD_REAL_5_430)[9950],sort(CD_REAL_5_440)[9950],sort(CD_REAL_5_450)[9950],sort(CD_REAL_5_460)[9950],
sort(CD_REAL_5_470)[9950],sort(CD_REAL_5_480)[9950],sort(CD_REAL_5_490)[9950],sort(CD_REAL_5_500)[9950])

LOWER=c(sort(CD_REAL_5_5)[51],sort(CD_REAL_5_6)[51],sort(CD_REAL_5_7)[51],sort(CD_REAL_5_8)[51],
sort(CD_REAL_5_9)[51],sort(CD_REAL_5_10)[51],sort(CD_REAL_5_15)[51],sort(CD_REAL_5_20)[51],
sort(CD_REAL_5_25)[51],sort(CD_REAL_5_30)[51],sort(CD_REAL_5_35)[51],sort(CD_REAL_5_40)[51],
sort(CD_REAL_5_45)[51],sort(CD_REAL_5_50)[51],sort(CD_REAL_5_55)[51],sort(CD_REAL_5_60)[51],
sort(CD_REAL_5_65)[51],sort(CD_REAL_5_70)[51],sort(CD_REAL_5_75)[51],sort(CD_REAL_5_80)[51],
sort(CD_REAL_5_85)[51],sort(CD_REAL_5_90)[51],sort(CD_REAL_5_95)[51],sort(CD_REAL_5_100)[51],
sort(CD_REAL_5_110)[51],sort(CD_REAL_5_120)[51],sort(CD_REAL_5_130)[51],sort(CD_REAL_5_140)[51],
sort(CD_REAL_5_150)[51],sort(CD_REAL_5_160)[51],sort(CD_REAL_5_170)[51],sort(CD_REAL_5_180)[51],
sort(CD_REAL_5_190)[51],sort(CD_REAL_5_200)[51],sort(CD_REAL_5_210)[51],sort(CD_REAL_5_220)[51],
sort(CD_REAL_5_230)[51],sort(CD_REAL_5_240)[51],sort(CD_REAL_5_250)[51],sort(CD_REAL_5_260)[51],
sort(CD_REAL_5_270)[51],sort(CD_REAL_5_280)[51],sort(CD_REAL_5_290)[51],sort(CD_REAL_5_300)[51],
sort(CD_REAL_5_310)[51],sort(CD_REAL_5_320)[51],sort(CD_REAL_5_330)[51],sort(CD_REAL_5_340)[51],
sort(CD_REAL_5_350)[51],sort(CD_REAL_5_360)[51],sort(CD_REAL_5_370)[51],sort(CD_REAL_5_380)[51],
sort(CD_REAL_5_390)[51],sort(CD_REAL_5_400)[51],sort(CD_REAL_5_410)[51],sort(CD_REAL_5_420)[51],
sort(CD_REAL_5_430)[51],sort(CD_REAL_5_440)[51],sort(CD_REAL_5_450)[51],sort(CD_REAL_5_460)[51],
sort(CD_REAL_5_470)[51],sort(CD_REAL_5_480)[51],sort(CD_REAL_5_490)[51],sort(CD_REAL_5_500)[51])

plot(c(5:9,seq(10,100,5),seq(110,500,10)),MEAN,type='l',lwd=3,col='blue',axes=FALSE,ylim=c(0,.4),
main=c(paste('5D. Profile-Based Cliffs Delta = .29'),
paste('for Two Distributions (R=500):'),
paste('Based on a Variable Number of Items for Group 1'),
('and 5 Items for Group 2')),
xlab='Number of Items for Group 1',ylab='Profile-Based Cliffs Delta')
axis(side=1,at=c(5,seq(50,500,50)));axis(side=2,at=seq(0,.4,.05),las=1)
lines(c(5:9,seq(10,100,5),seq(110,500,10)),rep(.291068,64),col='red',lwd=2,lty=2)
legend('bottomright',bty='n',c('Reference Cliffs Delta','Estimated Cliffs Delta'),
col=c('red','blue'),lty=c(2,1))

